home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / langguid / chap_09 / xmpl_03.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  590 b   |  27 lines  |  [TEXT/R*ch]
  1. --<<<
  2. -- Kaleida Labs, Inc.
  3. -- Field Guide to the ScriptX Language
  4. -- chapter 9, example 3
  5.  
  6. class Person ()
  7.     instance variables
  8.         name, age
  9.     instance methods
  10.         method printName self -> (
  11.             prin ("My name is " + self.name + "\n") @normal debug
  12.         )
  13.         method printAll self -> (
  14.             printName self
  15.             prin ("My age is " + self.age + "\n") @normal debug
  16.         )
  17. end
  18.  
  19. module PersonModule
  20.     -- the class itself
  21.     exports Person 
  22.     -- Person's instance variables (getter and setter generics)
  23.     exports nameSetter, nameGetter, ageSetter, ageGetter
  24.     -- Person's methods
  25.     exports printName, printAll
  26. end
  27. -->>>